
function x = GSLpp_get_startingpoint(starting_point, n)
  if strcmp(typeinfo(starting_point), "function handle") == 1
    x = feval(starting_point, n);
  elseif strcmp(typeinfo(starting_point), "matrix") == 1
    x = starting_point;
  else
    x = [];
  endif
endfunction
